/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Shared Code / Reusable Source / resutil.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 72 65 73 75 74 69 | 6c 2e 63 00 00 00 00 00 |..resuti|l.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 24 44 00 | 00 01 9a ab 97 4c bc ab |.....$D.|.....L..|
|00000060| 97 4c bc 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.L......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 26 86 00 00 |........|....&...|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 72 65 73 75 74 69 6c | 2e 63 0d 0d 09 54 68 69 |.resutil|.c...Thi|
|000000e0| 73 20 72 65 75 73 61 62 | 6c 65 20 6d 6f 64 75 6c |s reusab|le modul|
|000000f0| 65 20 63 6f 6e 74 61 69 | 6e 73 20 6d 69 73 63 65 |e contai|ns misce|
|00000100| 6c 6c 61 6e 65 6f 75 73 | 20 52 65 73 6f 75 72 63 |llaneous| Resourc|
|00000110| 65 20 4d 61 6e 61 67 65 | 72 20 75 74 69 6c 69 74 |e Manage|r utilit|
|00000120| 79 20 72 6f 75 74 69 6e | 65 73 2e 0d 09 0d 09 43 |y routin|es.....C|
|00000130| 6f 70 79 72 69 67 68 74 | 20 a9 20 31 39 39 34 2d |opyright| . 1994-|
|00000140| 31 39 39 35 2c 20 4e 6f | 72 74 68 77 65 73 74 65 |1995, No|rthweste|
|00000150| 72 6e 20 55 6e 69 76 65 | 72 73 69 74 79 2e 0d 0d |rn Unive|rsity...|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|000001b0| 23 69 6e 63 6c 75 64 65 | 20 22 72 65 73 75 74 69 |#include| "resuti|
|000001c0| 6c 2e 68 22 0d 23 69 6e | 63 6c 75 64 65 20 22 6d |l.h".#in|clude "m|
|000001d0| 65 6d 75 74 69 6c 2e 68 | 22 0d 23 69 6e 63 6c 75 |emutil.h|".#inclu|
|000001e0| 64 65 20 22 73 74 72 75 | 74 69 6c 2e 68 22 0d 23 |de "stru|til.h".#|
|000001f0| 69 6e 63 6c 75 64 65 20 | 22 66 69 6c 65 75 74 69 |include |"fileuti|
|00000200| 6c 2e 68 22 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |l.h"....|/*------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 0d 09 | 4d 79 46 53 70 4f 70 65 |------..|MyFSpOpe|
|00000260| 6e 52 65 73 46 69 6c 65 | 20 0d 09 0d 09 4f 70 65 |nResFile| ....Ope|
|00000270| 6e 20 61 20 72 65 73 6f | 75 72 63 65 20 66 69 6c |n a reso|urce fil|
|00000280| 65 2e 0d 09 09 09 0d 09 | 45 6e 74 72 79 3a 09 66 |e.......|Entry:.f|
|00000290| 53 70 65 63 20 3d 20 70 | 6f 69 6e 74 65 72 20 74 |Spec = p|ointer t|
|000002a0| 6f 20 66 69 6c 65 20 73 | 70 65 63 2e 0d 09 09 09 |o file s|pec.....|
|000002b0| 70 65 72 6d 69 73 73 69 | 6f 6e 20 3d 20 6f 70 65 |permissi|on = ope|
|000002c0| 6e 20 70 65 72 6d 69 73 | 73 69 6f 6e 73 2e 0d 09 |n permis|sions...|
|000002d0| 0d 09 45 78 69 74 3a 09 | 66 75 6e 63 74 69 6f 6e |..Exit:.|function|
|000002e0| 20 72 65 73 75 6c 74 20 | 3d 20 65 72 72 6f 72 20 | result |= error |
|000002f0| 63 6f 64 65 2e 0d 09 09 | 09 2a 72 65 66 4e 75 6d |code....|.*refNum|
|00000300| 20 3d 20 72 65 66 65 72 | 65 6e 63 65 20 6e 75 6d | = refer|ence num|
|00000310| 62 65 72 20 6f 66 20 6f | 70 65 6e 65 64 20 66 69 |ber of o|pened fi|
|00000320| 6c 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |le..----|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2a 2f 0d 0d 4f 53 45 72 | 72 20 4d 79 46 53 70 4f |*/..OSEr|r MyFSpO|
|00000380| 70 65 6e 52 65 73 46 69 | 6c 65 20 28 46 53 53 70 |penResFi|le (FSSp|
|00000390| 65 63 20 2a 66 53 70 65 | 63 2c 20 53 69 67 6e 65 |ec *fSpe|c, Signe|
|000003a0| 64 42 79 74 65 20 70 65 | 72 6d 69 73 73 69 6f 6e |dByte pe|rmission|
|000003b0| 2c 20 73 68 6f 72 74 20 | 2a 72 65 66 4e 75 6d 29 |, short |*refNum)|
|000003c0| 0d 7b 0d 09 73 68 6f 72 | 74 20 66 52 65 66 4e 75 |.{..shor|t fRefNu|
|000003d0| 6d 3b 0d 09 4f 53 45 72 | 72 20 65 72 72 20 3d 20 |m;..OSEr|r err = |
|000003e0| 6e 6f 45 72 72 3b 0d 0d | 09 66 52 65 66 4e 75 6d |noErr;..|.fRefNum|
|000003f0| 20 3d 20 46 53 70 4f 70 | 65 6e 52 65 73 46 69 6c | = FSpOp|enResFil|
|00000400| 65 28 66 53 70 65 63 2c | 20 70 65 72 6d 69 73 73 |e(fSpec,| permiss|
|00000410| 69 6f 6e 29 3b 0d 09 65 | 72 72 20 3d 20 52 65 73 |ion);..e|rr = Res|
|00000420| 45 72 72 6f 72 28 29 3b | 0d 09 69 66 20 28 65 72 |Error();|..if (er|
|00000430| 72 20 21 3d 20 6e 6f 45 | 72 72 29 20 72 65 74 75 |r != noE|rr) retu|
|00000440| 72 6e 20 65 72 72 3b 0d | 09 2a 72 65 66 4e 75 6d |rn err;.|.*refNum|
|00000450| 20 3d 20 66 52 65 66 4e | 75 6d 3b 0d 09 72 65 74 | = fRefN|um;..ret|
|00000460| 75 72 6e 20 6e 6f 45 72 | 72 3b 0d 7d 0d 0d 0d 0d |urn noEr|r;.}....|
|00000470| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|000004c0| 4d 79 46 53 70 43 72 65 | 61 74 65 52 65 73 46 69 |MyFSpCre|ateResFi|
|000004d0| 6c 65 20 0d 09 0d 09 43 | 72 65 61 74 65 20 61 20 |le ....C|reate a |
|000004e0| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 2e 0d 09 |resource| file...|
|000004f0| 09 09 0d 09 45 6e 74 72 | 79 3a 09 66 53 70 65 63 |....Entr|y:.fSpec|
|00000500| 20 3d 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 66 69 | = point|er to fi|
|00000510| 6c 65 20 73 70 65 63 2e | 0d 09 09 09 63 72 65 61 |le spec.|....crea|
|00000520| 74 6f 72 20 3d 20 63 72 | 65 61 74 6f 72 20 63 6f |tor = cr|eator co|
|00000530| 64 65 2e 0d 09 09 09 66 | 69 6c 65 54 79 70 65 20 |de.....f|ileType |
|00000540| 3d 20 66 69 6c 65 20 74 | 79 70 65 2e 0d 09 09 09 |= file t|ype.....|
|00000550| 73 63 72 69 70 74 54 61 | 67 20 3d 20 73 63 72 69 |scriptTa|g = scri|
|00000560| 70 74 20 63 6f 64 65 2e | 0d 09 0d 09 45 78 69 74 |pt code.|....Exit|
|00000570| 3a 09 66 75 6e 63 74 69 | 6f 6e 20 72 65 73 75 6c |:.functi|on resul|
|00000580| 74 20 3d 20 65 72 72 6f | 72 20 63 6f 64 65 2e 0d |t = erro|r code..|
|00000590| 09 09 09 2a 72 65 66 4e | 75 6d 20 3d 20 72 65 66 |...*refN|um = ref|
|000005a0| 65 72 65 6e 63 65 20 6e | 75 6d 62 65 72 20 6f 66 |erence n|umber of|
|000005b0| 20 6f 70 65 6e 65 64 20 | 66 69 6c 65 2e 0d 2d 2d | opened |file..--|
|000005c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 4f 53 |--------|--*/..OS|
|00000610| 45 72 72 20 4d 79 46 53 | 70 43 72 65 61 74 65 52 |Err MyFS|pCreateR|
|00000620| 65 73 46 69 6c 65 20 28 | 46 53 53 70 65 63 20 2a |esFile (|FSSpec *|
|00000630| 66 53 70 65 63 2c 20 4f | 53 54 79 70 65 20 63 72 |fSpec, O|SType cr|
|00000640| 65 61 74 6f 72 2c 20 4f | 53 54 79 70 65 20 66 69 |eator, O|SType fi|
|00000650| 6c 65 54 79 70 65 2c 0d | 09 53 63 72 69 70 74 43 |leType,.|.ScriptC|
|00000660| 6f 64 65 20 73 63 72 69 | 70 74 54 61 67 29 0d 7b |ode scri|ptTag).{|
|00000670| 0d 09 46 53 70 43 72 65 | 61 74 65 52 65 73 46 69 |..FSpCre|ateResFi|
|00000680| 6c 65 28 66 53 70 65 63 | 2c 20 63 72 65 61 74 6f |le(fSpec|, creato|
|00000690| 72 2c 20 66 69 6c 65 54 | 79 70 65 2c 20 73 63 72 |r, fileT|ype, scr|
|000006a0| 69 70 74 54 61 67 29 3b | 0d 09 72 65 74 75 72 6e |iptTag);|..return|
|000006b0| 20 52 65 73 45 72 72 6f | 72 28 29 3b 0d 7d 0d 0d | ResErro|r();.}..|
|000006c0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 0d 09 4f 70 65 6e 52 65 | 73 46 69 6c 65 57 72 69 |..OpenRe|sFileWri|
|00000720| 74 65 43 72 65 61 74 65 | 49 66 4d 69 73 73 69 6e |teCreate|IfMissin|
|00000730| 67 20 0d 09 0d 09 4f 70 | 65 6e 20 61 20 72 65 73 |g ....Op|en a res|
|00000740| 6f 75 72 63 65 20 66 69 | 6c 65 20 66 6f 72 20 77 |ource fi|le for w|
|00000750| 72 69 74 69 6e 67 2e 20 | 43 72 65 61 74 65 20 74 |riting. |Create t|
|00000760| 68 65 20 66 69 6c 65 20 | 69 66 20 69 74 20 64 6f |he file |if it do|
|00000770| 65 73 6e 27 74 20 65 78 | 69 73 74 2e 0d 09 09 09 |esn't ex|ist.....|
|00000780| 0d 09 45 6e 74 72 79 3a | 09 66 53 70 65 63 20 3d |..Entry:|.fSpec =|
|00000790| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 66 69 6c 65 | pointer| to file|
|000007a0| 20 73 70 65 63 2e 0d 09 | 09 09 63 72 65 61 74 6f | spec...|..creato|
|000007b0| 72 20 3d 20 63 72 65 61 | 74 6f 72 20 63 6f 64 65 |r = crea|tor code|
|000007c0| 2e 0d 09 09 09 66 69 6c | 65 54 79 70 65 20 3d 20 |.....fil|eType = |
|000007d0| 66 69 6c 65 20 74 79 70 | 65 2e 0d 09 09 09 73 63 |file typ|e.....sc|
|000007e0| 72 69 70 74 54 61 67 20 | 3d 20 73 63 72 69 70 74 |riptTag |= script|
|000007f0| 20 63 6f 64 65 2e 0d 09 | 0d 09 45 78 69 74 3a 09 | code...|..Exit:.|
|00000800| 66 75 6e 63 74 69 6f 6e | 20 72 65 73 75 6c 74 20 |function| result |
|00000810| 3d 20 65 72 72 6f 72 20 | 63 6f 64 65 2e 0d 09 09 |= error |code....|
|00000820| 09 2a 72 65 66 4e 75 6d | 20 3d 20 72 65 66 65 72 |.*refNum| = refer|
|00000830| 65 6e 63 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6f |ence num|ber of o|
|00000840| 70 65 6e 65 64 20 66 69 | 6c 65 2e 0d 2d 2d 2d 2d |pened fi|le..----|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 4f 53 45 72 |--------|*/..OSEr|
|000008a0| 72 20 4f 70 65 6e 52 65 | 73 46 69 6c 65 57 72 69 |r OpenRe|sFileWri|
|000008b0| 74 65 43 72 65 61 74 65 | 49 66 4d 69 73 73 69 6e |teCreate|IfMissin|
|000008c0| 67 20 28 46 53 53 70 65 | 63 20 2a 66 53 70 65 63 |g (FSSpe|c *fSpec|
|000008d0| 2c 20 4f 53 54 79 70 65 | 20 63 72 65 61 74 6f 72 |, OSType| creator|
|000008e0| 2c 20 4f 53 54 79 70 65 | 20 66 69 6c 65 54 79 70 |, OSType| fileTyp|
|000008f0| 65 2c 0d 09 53 63 72 69 | 70 74 43 6f 64 65 20 73 |e,..Scri|ptCode s|
|00000900| 63 72 69 70 74 54 61 67 | 2c 20 73 68 6f 72 74 20 |criptTag|, short |
|00000910| 2a 72 65 66 4e 75 6d 29 | 0d 7b 0d 09 73 68 6f 72 |*refNum)|.{..shor|
|00000920| 74 20 66 52 65 66 4e 75 | 6d 20 3d 20 30 3b 0d 09 |t fRefNu|m = 0;..|
|00000930| 4f 53 45 72 72 20 65 72 | 72 20 3d 20 6e 6f 45 72 |OSErr er|r = noEr|
|00000940| 72 3b 0d 09 0d 09 65 72 | 72 20 3d 20 4d 79 46 53 |r;....er|r = MyFS|
|00000950| 70 4f 70 65 6e 52 65 73 | 46 69 6c 65 28 66 53 70 |pOpenRes|File(fSp|
|00000960| 65 63 2c 20 66 73 52 64 | 57 72 50 65 72 6d 2c 20 |ec, fsRd|WrPerm, |
|00000970| 26 66 52 65 66 4e 75 6d | 29 3b 0d 09 69 66 20 28 |&fRefNum|);..if (|
|00000980| 65 72 72 20 3d 3d 20 66 | 6e 66 45 72 72 20 7c 7c |err == f|nfErr |||
|00000990| 20 65 72 72 20 3d 3d 20 | 65 6f 66 45 72 72 29 20 | err == |eofErr) |
|000009a0| 7b 0d 09 09 65 72 72 20 | 3d 20 4d 79 46 53 70 43 |{...err |= MyFSpC|
|000009b0| 72 65 61 74 65 52 65 73 | 46 69 6c 65 28 66 53 70 |reateRes|File(fSp|
|000009c0| 65 63 2c 20 63 72 65 61 | 74 6f 72 2c 20 66 69 6c |ec, crea|tor, fil|
|000009d0| 65 54 79 70 65 2c 20 73 | 63 72 69 70 74 54 61 67 |eType, s|criptTag|
|000009e0| 29 3b 0d 09 09 69 66 20 | 28 65 72 72 20 21 3d 20 |);...if |(err != |
|000009f0| 6e 6f 45 72 72 29 20 72 | 65 74 75 72 6e 20 65 72 |noErr) r|eturn er|
|00000a00| 72 3b 0d 09 09 65 72 72 | 20 3d 20 4d 79 46 53 70 |r;...err| = MyFSp|
|00000a10| 4f 70 65 6e 52 65 73 46 | 69 6c 65 28 66 53 70 65 |OpenResF|ile(fSpe|
|00000a20| 63 2c 20 66 73 52 64 57 | 72 50 65 72 6d 2c 20 26 |c, fsRdW|rPerm, &|
|00000a30| 66 52 65 66 4e 75 6d 29 | 3b 0d 09 09 69 66 20 28 |fRefNum)|;...if (|
|00000a40| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 72 65 |err != n|oErr) re|
|00000a50| 74 75 72 6e 20 65 72 72 | 3b 0d 09 7d 20 65 6c 73 |turn err|;..} els|
|00000a60| 65 20 69 66 20 28 65 72 | 72 20 21 3d 20 6e 6f 45 |e if (er|r != noE|
|00000a70| 72 72 29 20 7b 0d 09 09 | 72 65 74 75 72 6e 20 65 |rr) {...|return e|
|00000a80| 72 72 3b 0d 09 7d 0d 09 | 2a 72 65 66 4e 75 6d 20 |rr;..}..|*refNum |
|00000a90| 3d 20 66 52 65 66 4e 75 | 6d 3b 0d 09 72 65 74 75 |= fRefNu|m;..retu|
|00000aa0| 72 6e 20 6e 6f 45 72 72 | 3b 0d 7d 0d 0d 0d 0d 2f |rn noErr|;.}..../|
|00000ab0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 09 4d |--------|-----..M|
|00000b00| 79 47 65 74 52 65 73 6f | 75 72 63 65 20 0d 09 0d |yGetReso|urce ...|
|00000b10| 09 47 65 74 20 61 20 72 | 65 73 6f 75 72 63 65 2e |.Get a r|esource.|
|00000b20| 0d 09 09 09 0d 09 45 6e | 74 72 79 3a 09 72 54 79 |......En|try:.rTy|
|00000b30| 70 65 20 3d 20 72 65 73 | 6f 75 72 63 65 20 74 79 |pe = res|ource ty|
|00000b40| 70 65 2e 0d 09 09 09 72 | 49 44 20 3d 20 72 65 73 |pe.....r|ID = res|
|00000b50| 6f 75 72 63 65 20 69 64 | 2e 0d 09 0d 09 45 78 69 |ource id|.....Exi|
|00000b60| 74 3a 09 66 75 6e 63 74 | 69 6f 6e 20 72 65 73 75 |t:.funct|ion resu|
|00000b70| 6c 74 20 3d 20 65 72 72 | 6f 72 20 63 6f 64 65 2e |lt = err|or code.|
|00000b80| 0d 09 09 09 2a 74 68 65 | 48 61 6e 64 6c 65 20 3d |....*the|Handle =|
|00000b90| 20 68 61 6e 64 6c 65 20 | 74 6f 20 72 65 73 6f 75 | handle |to resou|
|00000ba0| 72 63 65 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rce..---|--------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 2a 2f 0d 0d 4f 53 45 | 72 72 20 4d 79 47 65 74 |-*/..OSE|rr MyGet|
|00000c00| 52 65 73 6f 75 72 63 65 | 20 28 4f 53 54 79 70 65 |Resource| (OSType|
|00000c10| 20 72 54 79 70 65 2c 20 | 73 68 6f 72 74 20 72 49 | rType, |short rI|
|00000c20| 44 2c 20 76 6f 69 64 20 | 2a 74 68 65 48 61 6e 64 |D, void |*theHand|
|00000c30| 6c 65 29 0d 7b 0d 09 48 | 61 6e 64 6c 65 20 68 3b |le).{..H|andle h;|
|00000c40| 0d 09 4f 53 45 72 72 20 | 65 72 72 20 3d 20 6e 6f |..OSErr |err = no|
|00000c50| 45 72 72 3b 0d 09 0d 09 | 68 20 3d 20 47 65 74 52 |Err;....|h = GetR|
|00000c60| 65 73 6f 75 72 63 65 28 | 72 54 79 70 65 2c 20 72 |esource(|rType, r|
|00000c70| 49 44 29 3b 0d 09 65 72 | 72 20 3d 20 52 65 73 45 |ID);..er|r = ResE|
|00000c80| 72 72 6f 72 28 29 3b 0d | 09 69 66 20 28 65 72 72 |rror();.|.if (err|
|00000c90| 20 21 3d 20 6e 6f 45 72 | 72 29 20 72 65 74 75 72 | != noEr|r) retur|
|00000ca0| 6e 20 65 72 72 3b 0d 09 | 69 66 20 28 68 20 3d 3d |n err;..|if (h ==|
|00000cb0| 20 6e 69 6c 29 20 72 65 | 74 75 72 6e 20 72 65 73 | nil) re|turn res|
|00000cc0| 4e 6f 74 46 6f 75 6e 64 | 3b 0d 09 2a 28 76 6f 69 |NotFound|;..*(voi|
|00000cd0| 64 2a 2a 29 74 68 65 48 | 61 6e 64 6c 65 20 3d 20 |d**)theH|andle = |
|00000ce0| 68 3b 0d 09 72 65 74 75 | 72 6e 20 6e 6f 45 72 72 |h;..retu|rn noErr|
|00000cf0| 3b 0d 7d 0d 0d 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |;.}..../|*-------|
|00000d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 0d 09 4d | 79 47 65 74 31 52 65 73 |-----..M|yGet1Res|
|00000d50| 6f 75 72 63 65 20 0d 09 | 0d 09 47 65 74 20 61 20 |ource ..|..Get a |
|00000d60| 72 65 73 6f 75 72 63 65 | 2e 0d 09 09 09 0d 09 45 |resource|.......E|
|00000d70| 6e 74 72 79 3a 09 72 54 | 79 70 65 20 3d 20 72 65 |ntry:.rT|ype = re|
|00000d80| 73 6f 75 72 63 65 20 74 | 79 70 65 2e 0d 09 09 09 |source t|ype.....|
|00000d90| 72 49 44 20 3d 20 72 65 | 73 6f 75 72 63 65 20 69 |rID = re|source i|
|00000da0| 64 2e 0d 09 0d 09 45 78 | 69 74 3a 09 66 75 6e 63 |d.....Ex|it:.func|
|00000db0| 74 69 6f 6e 20 72 65 73 | 75 6c 74 20 3d 20 65 72 |tion res|ult = er|
|00000dc0| 72 6f 72 20 63 6f 64 65 | 2e 0d 09 09 09 2a 74 68 |ror code|.....*th|
|00000dd0| 65 48 61 6e 64 6c 65 20 | 3d 20 68 61 6e 64 6c 65 |eHandle |= handle|
|00000de0| 20 74 6f 20 72 65 73 6f | 75 72 63 65 2e 0d 2d 2d | to reso|urce..--|
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 4f 53 |--------|--*/..OS|
|00000e40| 45 72 72 20 4d 79 47 65 | 74 31 52 65 73 6f 75 72 |Err MyGe|t1Resour|
|00000e50| 63 65 20 28 4f 53 54 79 | 70 65 20 72 54 79 70 65 |ce (OSTy|pe rType|
|00000e60| 2c 20 73 68 6f 72 74 20 | 72 49 44 2c 20 76 6f 69 |, short |rID, voi|
|00000e70| 64 20 2a 74 68 65 48 61 | 6e 64 6c 65 29 0d 7b 0d |d *theHa|ndle).{.|
|00000e80| 09 48 61 6e 64 6c 65 20 | 68 3b 0d 09 4f 53 45 72 |.Handle |h;..OSEr|
|00000e90| 72 20 65 72 72 20 3d 20 | 6e 6f 45 72 72 3b 0d 09 |r err = |noErr;..|
|00000ea0| 0d 09 68 20 3d 20 47 65 | 74 31 52 65 73 6f 75 72 |..h = Ge|t1Resour|
|00000eb0| 63 65 28 72 54 79 70 65 | 2c 20 72 49 44 29 3b 0d |ce(rType|, rID);.|
|00000ec0| 09 65 72 72 20 3d 20 52 | 65 73 45 72 72 6f 72 28 |.err = R|esError(|
|00000ed0| 29 3b 0d 09 69 66 20 28 | 65 72 72 20 21 3d 20 6e |);..if (|err != n|
|00000ee0| 6f 45 72 72 29 20 72 65 | 74 75 72 6e 20 65 72 72 |oErr) re|turn err|
|00000ef0| 3b 0d 09 69 66 20 28 68 | 20 3d 3d 20 6e 69 6c 29 |;..if (h| == nil)|
|00000f00| 20 72 65 74 75 72 6e 20 | 72 65 73 4e 6f 74 46 6f | return |resNotFo|
|00000f10| 75 6e 64 3b 0d 09 2a 28 | 76 6f 69 64 2a 2a 29 74 |und;..*(|void**)t|
|00000f20| 68 65 48 61 6e 64 6c 65 | 20 3d 20 68 3b 0d 09 72 |heHandle| = h;..r|
|00000f30| 65 74 75 72 6e 20 6e 6f | 45 72 72 3b 0d 7d 0d 0d |eturn no|Err;.}..|
|00000f40| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00000f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f90| 0d 09 4d 79 47 65 74 31 | 49 6e 64 52 65 73 6f 75 |..MyGet1|IndResou|
|00000fa0| 72 63 65 20 0d 09 0d 09 | 47 65 74 20 61 6e 20 69 |rce ....|Get an i|
|00000fb0| 6e 64 65 78 65 64 20 72 | 65 73 6f 75 72 63 65 2e |ndexed r|esource.|
|00000fc0| 0d 09 09 09 0d 09 45 6e | 74 72 79 3a 09 72 54 79 |......En|try:.rTy|
|00000fd0| 70 65 20 3d 20 72 65 73 | 6f 75 72 63 65 20 74 79 |pe = res|ource ty|
|00000fe0| 70 65 2e 0d 09 09 09 69 | 6e 64 65 78 20 3d 20 72 |pe.....i|ndex = r|
|00000ff0| 65 73 6f 75 72 63 65 20 | 69 6e 64 65 78 2e 0d 09 |esource |index...|
|00001000| 0d 09 45 78 69 74 3a 09 | 66 75 6e 63 74 69 6f 6e |..Exit:.|function|
|00001010| 20 72 65 73 75 6c 74 20 | 3d 20 65 72 72 6f 72 20 | result |= error |
|00001020| 63 6f 64 65 2e 0d 09 09 | 09 2a 74 68 65 48 61 6e |code....|.*theHan|
|00001030| 64 6c 65 20 3d 20 68 61 | 6e 64 6c 65 20 74 6f 20 |dle = ha|ndle to |
|00001040| 72 65 73 6f 75 72 63 65 | 2e 0d 2d 2d 2d 2d 2d 2d |resource|..------|
|00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001090| 2d 2d 2d 2d 2d 2d 2a 2f | 0d 0d 4f 53 45 72 72 20 |------*/|..OSErr |
|000010a0| 4d 79 47 65 74 31 49 6e | 64 52 65 73 6f 75 72 63 |MyGet1In|dResourc|
|000010b0| 65 20 28 4f 53 54 79 70 | 65 20 72 54 79 70 65 2c |e (OSTyp|e rType,|
|000010c0| 20 73 68 6f 72 74 20 69 | 6e 64 65 78 2c 20 76 6f | short i|ndex, vo|
|000010d0| 69 64 20 2a 74 68 65 48 | 61 6e 64 6c 65 29 0d 7b |id *theH|andle).{|
|000010e0| 0d 09 48 61 6e 64 6c 65 | 20 68 3b 0d 09 4f 53 45 |..Handle| h;..OSE|
|000010f0| 72 72 20 65 72 72 20 3d | 20 6e 6f 45 72 72 3b 0d |rr err =| noErr;.|
|00001100| 09 0d 09 68 20 3d 20 47 | 65 74 31 49 6e 64 52 65 |...h = G|et1IndRe|
|00001110| 73 6f 75 72 63 65 28 72 | 54 79 70 65 2c 20 69 6e |source(r|Type, in|
|00001120| 64 65 78 29 3b 0d 09 65 | 72 72 20 3d 20 52 65 73 |dex);..e|rr = Res|
|00001130| 45 72 72 6f 72 28 29 3b | 0d 09 69 66 20 28 65 72 |Error();|..if (er|
|00001140| 72 20 21 3d 20 6e 6f 45 | 72 72 29 20 72 65 74 75 |r != noE|rr) retu|
|00001150| 72 6e 20 65 72 72 3b 0d | 09 69 66 20 28 68 20 3d |rn err;.|.if (h =|
|00001160| 3d 20 6e 69 6c 29 20 72 | 65 74 75 72 6e 20 72 65 |= nil) r|eturn re|
|00001170| 73 4e 6f 74 46 6f 75 6e | 64 3b 0d 09 2a 28 76 6f |sNotFoun|d;..*(vo|
|00001180| 69 64 2a 2a 29 74 68 65 | 48 61 6e 64 6c 65 20 3d |id**)the|Handle =|
|00001190| 20 68 3b 0d 09 72 65 74 | 75 72 6e 20 6e 6f 45 72 | h;..ret|urn noEr|
|000011a0| 72 3b 0d 7d 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |r;.}....|/*------|
|000011b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011f0| 2d 2d 2d 2d 2d 2d 0d 09 | 4d 79 41 64 64 52 65 73 |------..|MyAddRes|
|00001200| 6f 75 72 63 65 20 0d 09 | 0d 09 41 64 64 20 61 20 |ource ..|..Add a |
|00001210| 72 65 73 6f 75 72 63 65 | 2e 0d 09 09 09 0d 09 45 |resource|.......E|
|00001220| 6e 74 72 79 3a 09 72 54 | 79 70 65 20 3d 20 72 65 |ntry:.rT|ype = re|
|00001230| 73 6f 75 72 63 65 20 74 | 79 70 65 2e 0d 09 09 09 |source t|ype.....|
|00001240| 72 49 44 20 3d 20 72 65 | 73 6f 75 72 63 65 20 69 |rID = re|source i|
|00001250| 64 2e 0d 09 09 09 74 68 | 65 48 61 6e 64 6c 65 20 |d.....th|eHandle |
|00001260| 3d 20 68 61 6e 64 6c 65 | 20 74 6f 20 64 61 74 61 |= handle| to data|
|00001270| 2e 0d 09 09 09 72 4e 61 | 6d 65 20 3d 20 72 65 73 |.....rNa|me = res|
|00001280| 6f 75 72 63 65 20 6e 61 | 6d 65 2e 0d 09 0d 09 45 |ource na|me.....E|
|00001290| 78 69 74 3a 09 66 75 6e | 63 74 69 6f 6e 20 72 65 |xit:.fun|ction re|
|000012a0| 73 75 6c 74 20 3d 20 65 | 72 72 6f 72 20 63 6f 64 |sult = e|rror cod|
|000012b0| 65 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e..-----|--------|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|00001300| 2f 0d 0d 4f 53 45 72 72 | 20 4d 79 41 64 64 52 65 |/..OSErr| MyAddRe|
|00001310| 73 6f 75 72 63 65 20 28 | 76 6f 69 64 20 2a 74 68 |source (|void *th|
|00001320| 65 48 61 6e 64 6c 65 2c | 20 4f 53 54 79 70 65 20 |eHandle,| OSType |
|00001330| 72 54 79 70 65 2c 20 73 | 68 6f 72 74 20 72 49 44 |rType, s|hort rID|
|00001340| 2c 0d 09 43 6f 6e 73 74 | 53 74 72 32 35 35 50 61 |,..Const|Str255Pa|
|00001350| 72 61 6d 20 72 4e 61 6d | 65 29 0d 7b 0d 09 41 64 |ram rNam|e).{..Ad|
|00001360| 64 52 65 73 6f 75 72 63 | 65 28 74 68 65 48 61 6e |dResourc|e(theHan|
|00001370| 64 6c 65 2c 20 72 54 79 | 70 65 2c 20 72 49 44 2c |dle, rTy|pe, rID,|
|00001380| 20 72 4e 61 6d 65 29 3b | 0d 09 72 65 74 75 72 6e | rName);|..return|
|00001390| 20 52 65 73 45 72 72 6f | 72 28 29 3b 0d 7d 0d 0d | ResErro|r();.}..|
|000013a0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013f0| 0d 09 4d 79 52 65 70 6c | 61 63 65 52 65 73 6f 75 |..MyRepl|aceResou|
|00001400| 72 63 65 20 0d 09 0d 09 | 52 65 70 6c 61 63 65 20 |rce ....|Replace |
|00001410| 61 20 72 65 73 6f 75 72 | 63 65 2e 20 43 72 65 61 |a resour|ce. Crea|
|00001420| 74 65 20 69 74 20 69 66 | 20 69 74 20 64 6f 65 73 |te it if| it does|
|00001430| 6e 27 74 20 61 6c 72 65 | 61 64 79 20 65 78 69 73 |n't alre|ady exis|
|00001440| 74 2e 0d 09 09 09 0d 09 | 45 6e 74 72 79 3a 09 74 |t.......|Entry:.t|
|00001450| 68 65 48 61 6e 64 6c 65 | 20 3d 20 68 61 6e 64 6c |heHandle| = handl|
|00001460| 65 20 74 6f 20 64 61 74 | 61 2e 0d 09 09 09 72 54 |e to dat|a.....rT|
|00001470| 79 70 65 20 3d 20 72 65 | 73 6f 75 72 63 65 20 74 |ype = re|source t|
|00001480| 79 70 65 2e 0d 09 09 09 | 72 49 44 20 3d 20 72 65 |ype.....|rID = re|
|00001490| 73 6f 75 72 63 65 20 69 | 64 2e 0d 09 09 09 72 4e |source i|d.....rN|
|000014a0| 61 6d 65 20 3d 20 72 65 | 73 6f 75 72 63 65 20 6e |ame = re|source n|
|000014b0| 61 6d 65 2e 0d 09 0d 09 | 45 78 69 74 3a 09 66 75 |ame.....|Exit:.fu|
|000014c0| 6e 63 74 69 6f 6e 20 72 | 65 73 75 6c 74 20 3d 20 |nction r|esult = |
|000014d0| 65 72 72 6f 72 20 63 6f | 64 65 2e 0d 2d 2d 2d 2d |error co|de..----|
|000014e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 4f 53 45 72 |--------|*/..OSEr|
|00001530| 72 20 4d 79 52 65 70 6c | 61 63 65 52 65 73 6f 75 |r MyRepl|aceResou|
|00001540| 72 63 65 20 28 76 6f 69 | 64 20 2a 74 68 65 48 61 |rce (voi|d *theHa|
|00001550| 6e 64 6c 65 2c 20 4f 53 | 54 79 70 65 20 72 54 79 |ndle, OS|Type rTy|
|00001560| 70 65 2c 20 73 68 6f 72 | 74 20 72 49 44 2c 0d 09 |pe, shor|t rID,..|
|00001570| 43 6f 6e 73 74 53 74 72 | 32 35 35 50 61 72 61 6d |ConstStr|255Param|
|00001580| 20 72 4e 61 6d 65 29 0d | 7b 0d 09 4f 53 45 72 72 | rName).|{..OSErr|
|00001590| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 3b 0d 09 48 | err = n|oErr;..H|
|000015a0| 61 6e 64 6c 65 20 68 3b | 0d 0d 09 53 65 74 52 65 |andle h;|...SetRe|
|000015b0| 73 4c 6f 61 64 28 66 61 | 6c 73 65 29 3b 0d 09 65 |sLoad(fa|lse);..e|
|000015c0| 72 72 20 3d 20 4d 79 47 | 65 74 31 52 65 73 6f 75 |rr = MyG|et1Resou|
|000015d0| 72 63 65 28 72 54 79 70 | 65 2c 20 72 49 44 2c 20 |rce(rTyp|e, rID, |
|000015e0| 26 68 29 3b 0d 09 53 65 | 74 52 65 73 4c 6f 61 64 |&h);..Se|tResLoad|
|000015f0| 28 74 72 75 65 29 3b 0d | 09 69 66 20 28 65 72 72 |(true);.|.if (err|
|00001600| 20 3d 3d 20 6e 6f 45 72 | 72 29 20 7b 0d 09 09 53 | == noEr|r) {...S|
|00001610| 65 74 52 65 73 49 6e 66 | 6f 28 68 2c 20 55 6e 69 |etResInf|o(h, Uni|
|00001620| 71 75 65 31 49 44 28 72 | 54 79 70 65 29 2c 20 6e |que1ID(r|Type), n|
|00001630| 69 6c 29 3b 0d 09 09 65 | 72 72 20 3d 20 4d 79 41 |il);...e|rr = MyA|
|00001640| 64 64 52 65 73 6f 75 72 | 63 65 28 74 68 65 48 61 |ddResour|ce(theHa|
|00001650| 6e 64 6c 65 2c 20 72 54 | 79 70 65 2c 20 72 49 44 |ndle, rT|ype, rID|
|00001660| 2c 20 72 4e 61 6d 65 29 | 3b 0d 09 09 69 66 20 28 |, rName)|;...if (|
|00001670| 65 72 72 20 3d 3d 20 6e | 6f 45 72 72 29 20 7b 0d |err == n|oErr) {.|
|00001680| 09 09 09 52 65 6d 6f 76 | 65 52 65 73 6f 75 72 63 |...Remov|eResourc|
|00001690| 65 28 68 29 3b 0d 09 09 | 09 4d 79 44 69 73 70 6f |e(h);...|.MyDispo|
|000016a0| 73 65 48 61 6e 64 6c 65 | 28 68 29 3b 0d 09 09 09 |seHandle|(h);....|
|000016b0| 72 65 74 75 72 6e 20 6e | 6f 45 72 72 3b 0d 09 09 |return n|oErr;...|
|000016c0| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 53 65 74 52 |} else {|....SetR|
|000016d0| 65 73 49 6e 66 6f 28 68 | 2c 20 72 49 44 2c 20 6e |esInfo(h|, rID, n|
|000016e0| 69 6c 29 3b 0d 09 09 09 | 72 65 74 75 72 6e 20 65 |il);....|return e|
|000016f0| 72 72 3b 0d 09 09 7d 0d | 09 7d 20 65 6c 73 65 20 |rr;...}.|.} else |
|00001700| 69 66 20 28 65 72 72 20 | 3d 3d 20 72 65 73 4e 6f |if (err |== resNo|
|00001710| 74 46 6f 75 6e 64 29 20 | 7b 0d 09 09 72 65 74 75 |tFound) |{...retu|
|00001720| 72 6e 20 4d 79 41 64 64 | 52 65 73 6f 75 72 63 65 |rn MyAdd|Resource|
|00001730| 28 74 68 65 48 61 6e 64 | 6c 65 2c 20 72 54 79 70 |(theHand|le, rTyp|
|00001740| 65 2c 20 72 49 44 2c 20 | 72 4e 61 6d 65 29 3b 0d |e, rID, |rName);.|
|00001750| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 72 65 74 75 |.} else |{...retu|
|00001760| 72 6e 20 65 72 72 3b 0d | 09 7d 0d 7d 0d 2f 2a 0d |rn err;.|.}.}./*.|
|00001770| 4f 53 45 72 72 20 4d 79 | 52 65 70 6c 61 63 65 52 |OSErr My|ReplaceR|
|00001780| 65 73 6f 75 72 63 65 20 | 28 76 6f 69 64 20 2a 74 |esource |(void *t|
|00001790| 68 65 48 61 6e 64 6c 65 | 2c 20 4f 53 54 79 70 65 |heHandle|, OSType|
|000017a0| 20 72 54 79 70 65 2c 20 | 73 68 6f 72 74 20 72 49 | rType, |short rI|
|000017b0| 44 2c 0d 09 43 6f 6e 73 | 74 53 74 72 32 35 35 50 |D,..Cons|tStr255P|
|000017c0| 61 72 61 6d 20 72 4e 61 | 6d 65 29 0d 7b 0d 09 4f |aram rNa|me).{..O|
|000017d0| 53 45 72 72 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |SErr err| = noErr|
|000017e0| 3b 0d 09 48 61 6e 64 6c | 65 20 68 3b 0d 0d 09 53 |;..Handl|e h;...S|
|000017f0| 65 74 52 65 73 4c 6f 61 | 64 28 66 61 6c 73 65 29 |etResLoa|d(false)|
|00001800| 3b 0d 09 65 72 72 20 3d | 20 4d 79 47 65 74 31 52 |;..err =| MyGet1R|
|00001810| 65 73 6f 75 72 63 65 28 | 72 54 79 70 65 2c 20 72 |esource(|rType, r|
|00001820| 49 44 2c 20 26 68 29 3b | 0d 09 53 65 74 52 65 73 |ID, &h);|..SetRes|
|00001830| 4c 6f 61 64 28 74 72 75 | 65 29 3b 0d 09 69 66 20 |Load(tru|e);..if |
|00001840| 28 65 72 72 20 3d 3d 20 | 6e 6f 45 72 72 29 20 7b |(err == |noErr) {|
|00001850| 0d 09 09 52 65 6d 6f 76 | 65 52 65 73 6f 75 72 63 |...Remov|eResourc|
|00001860| 65 28 68 29 3b 0d 09 09 | 4d 79 44 69 73 70 6f 73 |e(h);...|MyDispos|
|00001870| 65 48 61 6e 64 6c 65 28 | 68 29 3b 0d 09 7d 20 65 |eHandle(|h);..} e|
|00001880| 6c 73 65 20 69 66 20 28 | 65 72 72 20 21 3d 20 72 |lse if (|err != r|
|00001890| 65 73 4e 6f 74 46 6f 75 | 6e 64 29 20 7b 0d 09 09 |esNotFou|nd) {...|
|000018a0| 72 65 74 75 72 6e 20 65 | 72 72 3b 0d 09 7d 0d 09 |return e|rr;..}..|
|000018b0| 72 65 74 75 72 6e 20 4d | 79 41 64 64 52 65 73 6f |return M|yAddReso|
|000018c0| 75 72 63 65 28 74 68 65 | 48 61 6e 64 6c 65 2c 20 |urce(the|Handle, |
|000018d0| 72 54 79 70 65 2c 20 72 | 49 44 2c 20 72 4e 61 6d |rType, r|ID, rNam|
|000018e0| 65 29 3b 0d 7d 0d 2a 2f | 0d 09 0d 0d 0d 2f 2a 2d |e);.}.*/|...../*-|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 4d 79 52 |--------|---..MyR|
|00001940| 65 6c 65 61 73 65 52 65 | 73 6f 75 72 63 65 20 0d |eleaseRe|source .|
|00001950| 09 0d 09 52 65 6c 65 61 | 73 65 20 61 20 72 65 73 |...Relea|se a res|
|00001960| 6f 75 72 63 65 2e 0d 09 | 09 09 0d 09 45 6e 74 72 |ource...|....Entr|
|00001970| 79 3a 09 72 48 61 6e 64 | 6c 65 20 3d 20 68 61 6e |y:.rHand|le = han|
|00001980| 64 6c 65 20 74 6f 20 72 | 65 73 6f 75 72 63 65 2e |dle to r|esource.|
|00001990| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|000019e0| 0d 76 6f 69 64 20 4d 79 | 52 65 6c 65 61 73 65 52 |.void My|ReleaseR|
|000019f0| 65 73 6f 75 72 63 65 20 | 28 76 6f 69 64 20 2a 72 |esource |(void *r|
|00001a00| 48 61 6e 64 6c 65 29 0d | 7b 0d 09 52 65 6c 65 61 |Handle).|{..Relea|
|00001a10| 73 65 52 65 73 6f 75 72 | 63 65 28 72 48 61 6e 64 |seResour|ce(rHand|
|00001a20| 6c 65 29 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |le);.}..|../*----|
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 4d 79 44 65 74 61 |--------|..MyDeta|
|00001a80| 63 68 52 65 73 6f 75 72 | 63 65 20 0d 09 0d 09 44 |chResour|ce ....D|
|00001a90| 65 74 61 63 68 20 61 20 | 72 65 73 6f 75 72 63 65 |etach a |resource|
|00001aa0| 2e 0d 09 09 09 0d 09 45 | 6e 74 72 79 3a 09 72 48 |.......E|ntry:.rH|
|00001ab0| 61 6e 64 6c 65 20 3d 20 | 68 61 6e 64 6c 65 20 74 |andle = |handle t|
|00001ac0| 6f 20 72 65 73 6f 75 72 | 63 65 2e 0d 2d 2d 2d 2d |o resour|ce..----|
|00001ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 76 6f 69 64 |--------|*/..void|
|00001b20| 20 4d 79 44 65 74 61 63 | 68 52 65 73 6f 75 72 63 | MyDetac|hResourc|
|00001b30| 65 20 28 76 6f 69 64 20 | 2a 72 48 61 6e 64 6c 65 |e (void |*rHandle|
|00001b40| 29 0d 7b 0d 09 44 65 74 | 61 63 68 52 65 73 6f 75 |).{..Det|achResou|
|00001b50| 72 63 65 28 72 48 61 6e | 64 6c 65 29 3b 0d 7d 0d |rce(rHan|dle);.}.|
|00001b60| 0d 0d 0d 2f 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.../*---|--------|
|00001b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bb0| 2d 0d 09 57 72 69 74 65 | 50 72 6f 67 72 61 6d 4e |-..Write|ProgramN|
|00001bc0| 61 6d 65 52 65 73 6f 75 | 72 63 65 20 0d 09 0d 09 |ameResou|rce ....|
|00001bd0| 57 72 69 74 65 20 74 68 | 65 20 70 72 6f 67 72 61 |Write th|e progra|
|00001be0| 6d 20 6e 61 6d 65 20 72 | 65 73 6f 75 72 63 65 20 |m name r|esource |
|00001bf0| 28 53 54 52 20 69 64 3d | 2d 31 36 33 39 36 29 20 |(STR id=|-16396) |
|00001c00| 74 6f 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 72 |to the c|urrent r|
|00001c10| 65 73 6f 75 72 63 65 0d | 09 66 69 6c 65 2e 20 53 |esource.|.file. S|
|00001c20| 65 65 20 49 4d 20 56 49 | 20 70 2e 20 39 2d 32 31 |ee IM VI| p. 9-21|
|00001c30| 2e 0d 09 0d 09 45 6e 74 | 72 79 3a 09 69 6e 64 65 |.....Ent|ry:.inde|
|00001c40| 78 20 3d 20 69 6e 64 65 | 78 20 69 6e 20 53 54 52 |x = inde|x in STR|
|00001c50| 23 20 69 64 3d 31 32 38 | 20 72 65 73 6f 75 72 63 |# id=128| resourc|
|00001c60| 65 20 6f 66 20 70 72 6f | 67 72 61 6d 20 6e 61 6d |e of pro|gram nam|
|00001c70| 65 20 73 74 72 69 6e 67 | 2e 0d 09 0d 09 45 78 69 |e string|.....Exi|
|00001c80| 74 3a 09 66 75 6e 63 74 | 69 6f 6e 20 72 65 73 75 |t:.funct|ion resu|
|00001c90| 6c 74 20 3d 20 65 72 72 | 6f 72 20 63 6f 64 65 2e |lt = err|or code.|
|00001ca0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00001cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 2f 0d |--------|-----*/.|
|00001cf0| 0d 4f 53 45 72 72 20 57 | 72 69 74 65 50 72 6f 67 |.OSErr W|riteProg|
|00001d00| 72 61 6d 4e 61 6d 65 52 | 65 73 6f 75 72 63 65 20 |ramNameR|esource |
|00001d10| 28 73 68 6f 72 74 20 69 | 6e 64 65 78 29 0d 7b 0d |(short i|ndex).{.|
|00001d20| 09 48 61 6e 64 6c 65 20 | 68 3b 0d 09 53 74 72 32 |.Handle |h;..Str2|
|00001d30| 35 35 20 70 72 6f 67 4e | 61 6d 65 3b 0d 09 4f 53 |55 progN|ame;..OS|
|00001d40| 45 72 72 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 3b |Err err |= noErr;|
|00001d50| 0d 09 0d 09 47 65 74 50 | 53 74 72 69 6e 67 28 69 |....GetP|String(i|
|00001d60| 6e 64 65 78 2c 20 70 72 | 6f 67 4e 61 6d 65 29 3b |ndex, pr|ogName);|
|00001d70| 0d 09 65 72 72 20 3d 20 | 4d 79 50 74 72 54 6f 48 |..err = |MyPtrToH|
|00001d80| 61 6e 64 28 70 72 6f 67 | 4e 61 6d 65 2c 20 26 68 |and(prog|Name, &h|
|00001d90| 2c 20 2a 70 72 6f 67 4e | 61 6d 65 20 2b 20 31 29 |, *progN|ame + 1)|
|00001da0| 3b 0d 09 69 66 20 28 65 | 72 72 20 21 3d 20 6e 6f |;..if (e|rr != no|
|00001db0| 45 72 72 29 20 72 65 74 | 75 72 6e 20 65 72 72 3b |Err) ret|urn err;|
|00001dc0| 0d 09 72 65 74 75 72 6e | 20 4d 79 52 65 70 6c 61 |..return| MyRepla|
|00001dd0| 63 65 52 65 73 6f 75 72 | 63 65 28 68 2c 20 27 53 |ceResour|ce(h, 'S|
|00001de0| 54 52 20 27 2c 20 2d 31 | 36 33 39 36 2c 20 22 5c |TR ', -1|6396, "\|
|00001df0| 70 22 29 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |p");.}..|../*----|
|00001e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e40| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 47 65 74 56 65 72 |--------|..GetVer|
|00001e50| 73 69 6f 6e 53 74 72 69 | 6e 67 20 0d 09 0d 09 47 |sionStri|ng ....G|
|00001e60| 65 74 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 6e |et the v|ersion n|
|00001e70| 75 6d 62 65 72 20 73 74 | 72 69 6e 67 20 66 72 6f |umber st|ring fro|
|00001e80| 6d 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 72 65 |m the cu|rrent re|
|00001e90| 73 6f 75 72 63 65 20 66 | 69 6c 65 2e 0d 09 0d 09 |source f|ile.....|
|00001ea0| 45 78 69 74 3a 09 66 75 | 6e 63 74 69 6f 6e 20 72 |Exit:.fu|nction r|
|00001eb0| 65 73 75 6c 74 20 3d 20 | 65 72 72 6f 72 20 63 6f |esult = |error co|
|00001ec0| 64 65 2e 0d 09 09 09 76 | 65 72 73 53 74 72 69 6e |de.....v|ersStrin|
|00001ed0| 67 20 3d 20 50 2d 66 6f | 72 6d 61 74 20 76 65 72 |g = P-fo|rmat ver|
|00001ee0| 73 69 6f 6e 20 6e 75 6d | 62 65 72 20 73 74 72 69 |sion num|ber stri|
|00001ef0| 6e 67 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng..----|--------|
|00001f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f40| 2a 2f 0d 0d 4f 53 45 72 | 72 20 47 65 74 56 65 72 |*/..OSEr|r GetVer|
|00001f50| 73 69 6f 6e 53 74 72 69 | 6e 67 20 28 53 74 72 32 |sionStri|ng (Str2|
|00001f60| 35 35 20 76 65 72 73 53 | 74 72 69 6e 67 29 0d 7b |55 versS|tring).{|
|00001f70| 0d 09 4f 53 45 72 72 20 | 65 72 72 20 3d 20 6e 6f |..OSErr |err = no|
|00001f80| 45 72 72 3b 0d 09 48 61 | 6e 64 6c 65 20 76 65 72 |Err;..Ha|ndle ver|
|00001f90| 73 52 65 73 6f 75 72 63 | 65 3b 0d 0d 09 65 72 72 |sResourc|e;...err|
|00001fa0| 20 3d 20 4d 79 47 65 74 | 31 52 65 73 6f 75 72 63 | = MyGet|1Resourc|
|00001fb0| 65 28 27 76 65 72 73 27 | 2c 20 31 2c 20 26 76 65 |e('vers'|, 1, &ve|
|00001fc0| 72 73 52 65 73 6f 75 72 | 63 65 29 3b 0d 09 69 66 |rsResour|ce);..if|
|00001fd0| 20 28 65 72 72 20 21 3d | 20 6e 6f 45 72 72 29 20 | (err !=| noErr) |
|00001fe0| 65 72 72 20 3d 20 4d 79 | 47 65 74 31 52 65 73 6f |err = My|Get1Reso|
|00001ff0| 75 72 63 65 28 27 76 65 | 72 73 27 2c 20 32 2c 20 |urce('ve|rs', 2, |
|00002000| 26 76 65 72 73 52 65 73 | 6f 75 72 63 65 29 3b 0d |&versRes|ource);.|
|00002010| 09 69 66 20 28 65 72 72 | 20 21 3d 20 6e 6f 45 72 |.if (err| != noEr|
|00002020| 72 29 20 72 65 74 75 72 | 6e 20 65 72 72 3b 0d 09 |r) retur|n err;..|
|00002030| 43 6f 70 79 50 61 73 63 | 61 6c 53 74 72 69 6e 67 |CopyPasc|alString|
|00002040| 28 76 65 72 73 53 74 72 | 69 6e 67 2c 20 28 53 74 |(versStr|ing, (St|
|00002050| 72 69 6e 67 50 74 72 29 | 28 2a 76 65 72 73 52 65 |ringPtr)|(*versRe|
|00002060| 73 6f 75 72 63 65 2b 36 | 29 29 3b 0d 09 72 65 74 |source+6|));..ret|
|00002070| 75 72 6e 20 6e 6f 45 72 | 72 3b 0d 7d 0d 0d 0d 0d |urn noEr|r;.}....|
|00002080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|000020d0| 47 65 74 56 65 72 73 69 | 6f 6e 4e 75 6d 62 65 72 |GetVersi|onNumber|
|000020e0| 20 0d 09 0d 09 47 65 74 | 20 74 68 65 20 76 65 72 | ....Get| the ver|
|000020f0| 73 69 6f 6e 20 6e 75 6d | 62 65 72 20 66 72 6f 6d |sion num|ber from|
|00002100| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 72 65 73 | the cur|rent res|
|00002110| 6f 75 72 63 65 20 66 69 | 6c 65 2e 0d 09 0d 09 45 |ource fi|le.....E|
|00002120| 78 69 74 3a 09 66 75 6e | 63 74 69 6f 6e 20 72 65 |xit:.fun|ction re|
|00002130| 73 75 6c 74 20 3d 20 65 | 72 72 6f 72 20 63 6f 64 |sult = e|rror cod|
|00002140| 65 2e 0d 09 09 09 2a 76 | 65 72 73 4e 75 6d 62 65 |e.....*v|ersNumbe|
|00002150| 72 20 3d 20 76 65 72 73 | 69 6f 6e 20 6e 75 6d 62 |r = vers|ion numb|
|00002160| 65 72 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |er..----|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2a 2f 0d 0d 4f 53 45 72 | 72 20 47 65 74 56 65 72 |*/..OSEr|r GetVer|
|000021c0| 73 69 6f 6e 4e 75 6d 62 | 65 72 20 28 75 6e 73 69 |sionNumb|er (unsi|
|000021d0| 67 6e 65 64 20 6c 6f 6e | 67 20 2a 76 65 72 73 4e |gned lon|g *versN|
|000021e0| 75 6d 62 65 72 29 0d 7b | 0d 09 4f 53 45 72 72 20 |umber).{|..OSErr |
|000021f0| 65 72 72 20 3d 20 6e 6f | 45 72 72 3b 0d 09 48 61 |err = no|Err;..Ha|
|00002200| 6e 64 6c 65 20 76 65 72 | 73 52 65 73 6f 75 72 63 |ndle ver|sResourc|
|00002210| 65 3b 0d 09 0d 09 65 72 | 72 20 3d 20 4d 79 47 65 |e;....er|r = MyGe|
|00002220| 74 31 52 65 73 6f 75 72 | 63 65 28 27 76 65 72 73 |t1Resour|ce('vers|
|00002230| 27 2c 20 31 2c 20 26 76 | 65 72 73 52 65 73 6f 75 |', 1, &v|ersResou|
|00002240| 72 63 65 29 3b 0d 09 69 | 66 20 28 65 72 72 20 21 |rce);..i|f (err !|
|00002250| 3d 20 6e 6f 45 72 72 29 | 20 65 72 72 20 3d 20 4d |= noErr)| err = M|
|00002260| 79 47 65 74 31 52 65 73 | 6f 75 72 63 65 28 27 76 |yGet1Res|ource('v|
|00002270| 65 72 73 27 2c 20 32 2c | 20 26 76 65 72 73 52 65 |ers', 2,| &versRe|
|00002280| 73 6f 75 72 63 65 29 3b | 0d 09 69 66 20 28 65 72 |source);|..if (er|
|00002290| 72 20 21 3d 20 6e 6f 45 | 72 72 29 20 72 65 74 75 |r != noE|rr) retu|
|000022a0| 72 6e 20 65 72 72 3b 0d | 09 2a 76 65 72 73 4e 75 |rn err;.|.*versNu|
|000022b0| 6d 62 65 72 20 3d 20 2a | 2a 28 75 6e 73 69 67 6e |mber = *|*(unsign|
|000022c0| 65 64 20 6c 6f 6e 67 2a | 2a 29 76 65 72 73 52 65 |ed long*|*)versRe|
|000022d0| 73 6f 75 72 63 65 3b 0d | 09 72 65 74 75 72 6e 20 |source;.|.return |
|000022e0| 6e 6f 45 72 72 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |noErr;.}|..../*--|
|000022f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 4d 79 43 6c |--------|--..MyCl|
|00002340| 6f 73 65 52 65 73 46 69 | 6c 65 20 0d 09 0d 09 43 |oseResFi|le ....C|
|00002350| 6c 6f 73 65 20 61 20 72 | 65 73 6f 75 72 63 65 20 |lose a r|esource |
|00002360| 66 69 6c 65 2e 0d 09 0d | 09 45 6e 74 72 79 3a 09 |file....|.Entry:.|
|00002370| 66 52 65 66 4e 75 6d 20 | 3d 20 66 69 6c 65 20 72 |fRefNum |= file r|
|00002380| 65 66 65 72 65 6e 63 65 | 20 6e 75 6d 62 65 72 2e |eference| number.|
|00002390| 0d 09 0d 09 45 78 69 74 | 3a 09 66 75 6e 63 74 69 |....Exit|:.functi|
|000023a0| 6f 6e 20 72 65 73 75 6c | 74 20 3d 20 65 72 72 6f |on resul|t = erro|
|000023b0| 72 20 63 6f 64 65 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d |r code..|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2a 2f 0d 0d | 76 6f 69 64 20 4d 79 43 |----*/..|void MyC|
|00002410| 6c 6f 73 65 52 65 73 46 | 69 6c 65 20 28 73 68 6f |loseResF|ile (sho|
|00002420| 72 74 20 66 52 65 66 4e | 75 6d 29 0d 7b 0d 09 73 |rt fRefN|um).{..s|
|00002430| 68 6f 72 74 20 76 52 65 | 66 4e 75 6d 3b 0d 09 4f |hort vRe|fNum;..O|
|00002440| 53 45 72 72 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |SErr err| = noErr|
|00002450| 3b 0d 09 0d 09 65 72 72 | 20 3d 20 47 65 74 46 69 |;....err| = GetFi|
|00002460| 6c 65 56 6f 6c 52 65 66 | 4e 75 6d 28 66 52 65 66 |leVolRef|Num(fRef|
|00002470| 4e 75 6d 2c 20 26 76 52 | 65 66 4e 75 6d 29 3b 0d |Num, &vR|efNum);.|
|00002480| 09 43 6c 6f 73 65 52 65 | 73 46 69 6c 65 28 66 52 |.CloseRe|sFile(fR|
|00002490| 65 66 4e 75 6d 29 3b 0d | 09 69 66 20 28 65 72 72 |efNum);.|.if (err|
|000024a0| 20 3d 3d 20 6e 6f 45 72 | 72 29 20 46 6c 75 73 68 | == noEr|r) Flush|
|000024b0| 56 6f 6c 28 6e 69 6c 2c | 20 76 52 65 66 4e 75 6d |Vol(nil,| vRefNum|
|000024c0| 29 3b 0d 7d 00 00 00 00 | 00 00 00 00 00 00 00 00 |);.}....|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00002510| 5d 40 00 01 00 00 00 00 | 00 00 00 00 00 a6 00 00 |]@......|........|
|00002520| 00 00 6f ad 13 4d 61 63 | 54 43 50 43 6f 6d 6d 6f |..o..Mac|TCPCommo|
|00002530| 09 72 65 73 75 74 69 6c | 2e 63 02 00 00 00 54 45 |.resutil|.c....TE|
|00002540| 58 54 4d 4d 43 43 01 00 | 00 9c 01 80 00 00 00 00 |XTMMCC..|........|
|00002550| 00 00 54 45 58 54 4d 4d | 43 43 01 00 00 9c 01 80 |..TEXTMM|CC......|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 aa 4f 8b 32 00 00 | 24 44 00 00 01 9a 00 00 |...O.2..|$D......|
|00002580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002590| 00 00 00 01 00 12 00 01 | 00 00 02 69 44 6f 4f 70 |........|...iDoOp|
|000025a0| 65 6e 00 69 00 00 54 43 | 50 43 6f 6d 6d 6f 6e 54 |en.i..TC|PCommonT|
|000025b0| 79 70 65 73 2e 68 00 00 | 00 00 00 00 00 00 00 00 |ypes.h..|........|
|000025c0| 00 00 a9 6d 5d 40 00 01 | 00 00 00 00 00 00 00 00 |...m]@..|........|
|000025d0| be ab ba eb 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 03 | 00 04 fe de 03 6c 02 27 |........|.....l.'|
|00002630| 05 d7 fe de 03 6c 02 27 | 05 d7 ac 0d e9 12 00 00 |.....l.'|........|
|00002640| 21 3a 00 00 21 4a 00 00 | 1c d1 01 00 00 00 00 04 |!:..!J..|........|
|00002650| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00002660| 00 00 00 46 00 f8 52 58 | 0b 64 00 00 00 1c 00 46 |...F..RX|.d.....F|
|00002670| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00002680| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00002690| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+